From: Stefan Monnier Date: Wed, 26 Aug 2009 02:56:05 +0000 (+0000) Subject: (byte-compile-lapcode): Signal overflow. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10892 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=db267cdbda8595be612e34bed3b5cc66176238a2;p=emacs.git (byte-compile-lapcode): Signal overflow. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb2b6ebe789..3d2796ed3dc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-08-26 Andreas Schwab + + * emacs-lisp/bytecomp.el (byte-compile-lapcode): Signal overflow. + 2009-08-25 Michael Albinus * simple.el (process-file-side-effects): New defvar. diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b8e63a4f5f8..f1561c0b279 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -854,7 +854,9 @@ otherwise pop it") (t ; Absolute jump (setq pc (car (cdr (car bytes)))) ; Pick PC from tag (setcar (cdr bytes) (logand pc 255)) - (setcar bytes (lsh pc -8)))) + (setcar bytes (lsh pc -8)) + ;; FIXME: Replace this by some workaround. + (if (> (car bytes) 255) (error "Bytecode overflow")))))) (setq patchlist (cdr patchlist)))) (apply 'unibyte-string (nreverse bytes))))